Shareware Grab Bag/Shareware Grab Bag.iso/005/tonyray1.arc/PB4.PRG

Text File | 1985-09-29 | 5.1 KB | 310 lines

mreview1=.t.
SET deleted on
DELENO=.F.
DO WHIL mreview1
sele current
CLEA
mfile_nmbr=space(6)
@05,05 say 'ENTER FILE NUMBER OF CASE TO REVIEW ' get mfile_nmbr
@06,05 say 'OR (CR) TO EXIT'
READ
CLEA gets
IF '&MFILE_NMBR'=' ' .or. len(trim('&MFILE_NMBR'))=0
mreview1=.f.
exit
ENDI
FIND '&MFILE_NMBR'
IF eof()
@20,05 say 'IMPROPER INPUT - TRY AGAIN'
xx=1
DO WHIL xx<25
xx=xx+1
ENDD
@20,00
@05,00
SET filter to
mfile_nmbr=space(6)
LOOP
ENDI
CLEA
line=1
@line,04 say clientname
@line,51 say 'File number - RAR'+file_nmbr
@line+1,04 say cstreet
@line+1,51 say 'Ref: '+reference
@line+2,04 say ccity_st
@line+2,51 say 'Billing date: '+dtoc(date())
@line+4,04 say 'ATTEN: '+contact
@line+6,00 say "PREVIOUS MONTH's balance"
@line+6,65 say '$'
@line+6,66 say str(prev_bal,8,2)
sele service
FIND '&mfile_nmbr'
line=line+8
@line,00 say 'DATE'
@line,11 say 'PROFESSIONAL SERVICES RENDERED'
@line,col()+10 say 'INDIV HOURS'
SET color to 7/4,6/1,6
@line,76 say 'NO.'
SET color to 6/1,7/4,6
line=row()+2
mamount=0
mamount1=0
mdelete=0
totalser=0
totalexp=0
totalpay=0
MSER=.T.
DO WHIL MSER
DO WHIL file_nmbr='&mfile_nmbr'.and. .not. eof()
IF kind='SER'
@ line,00 say dtoc(date)+' - '+second+' '+timekeep
@ line,58 say hours
@ line,65 say '$'
@ line,66 say str(amount,8,2)
@ line,75 say str(recno(),4)
mamount=mamount+amount
line=line+1
SKIP
IF line>21
@24,11 say 'enter NO. to delete or hit (cr)' get mdelete
READ
CLEA gets
IF mdelete=0
mamount1=mamount1+mamount
mamount=0
@11,00 clear
line=11
LOOP
ELSE
DELE record mdelete
DELENO=.T.
MAMOUNT=0
MDELETE=0
FIND '&MFILE_NMBR'
line=11
@11,00 CLEAR
LOOP
ENDI
LOOP
ENDI
LOOP
ELSE
SKIP
LOOP
ENDI
ENDD
mamount2=mamount+mamount1
@22,50 say 'TOTAL SERVICES'
@22,65 say '$'
@22,66 say str(mamount2,8,2)
totalser=mamount2
mamount=0
mamount1=0
@24,11 say 'enter NO. to delete or hit (cr) to see expenses' get mdelete
READ
CLEA gets
IF mdelete=0
mser=.f.
exit
ELSE
DELE record mdelete
DELENO=.T.
mamount=0
mdelete=0
mcount=0
@11,00 clear
line=11
FIND '&MFILE_NMBR'
LOOP
ENDI
ENDD
@09,00 CLEAR
line=9
sele service
FIND '&mfile_nmbr'
@line,00 say 'DATE'
@line,11 say 'OUT OF POCKET EXPENSES        '
SET color to 7/4,6/1,6
@line,76 say 'NO.'
SET color to 6/1,7/4,6
line=row()+2
mamount=0
mamount1=0
mdelete=0
totalexp=0
totalpay=0
MSER=.T.
DO WHIL MSER
DO WHIL file_nmbr='&mfile_nmbr'.and. .not. eof()
IF kind='EXP'
@ line,00 say dtoc(date)+' - '+second
@ line,65 say '$'
@ line,66 say str(amount,8,2)
@ line,75 say str(recno(),4)
mamount=mamount+amount
line=line+1
SKIP
IF line>21
@24,11 say 'enter NO. to delete or hit (cr)' get mdelete
READ
CLEA gets
IF mdelete=0
mamount1=mamount1+mamount
mamount=0
@11,00 clear
line=11
LOOP
ELSE
DELE record mdelete
DELENO=.T.
MAMOUNT=0
MDELETE=0
FIND '&MFILE_NMBR'
line=11
@11,00 CLEAR
LOOP
ENDI
LOOP
ENDI
LOOP
ELSE
SKIP
LOOP
ENDI
ENDD
mamount2=mamount+mamount1
@22,50 say 'TOTAL EXPENSES'
@22,65 say '$'
@22,66 say str(mamount2,8,2)
totalexp=mamount2
mamount=0
mamount1=0
@24,11 say 'enter NO. to delete or hit (cr) to see payments' get mdelete
READ
CLEA gets
IF mdelete=0
mser=.f.
exit
ELSE
DELE record mdelete
DELENO=.T.
mamount=0
mdelete=0
mcount=0
@11,00 clear
line=11
FIND '&MFILE_NMBR'
LOOP
ENDI
ENDD
line=09
@09,00 CLEAR
sele service
FIND '&mfile_nmbr'
@line,00 say 'DATE'
@line,11 say 'PAYMENTS                      '
SET color to 7/4,6/1,6
@line,76 say 'NO.'
SET color to 6/1,7/4,6
line=row()+2
mamount=0
mamount1=0
mdelete=0
totalpay=0
MSER=.T.
DO WHIL MSER
DO WHIL file_nmbr='&mfile_nmbr'.and. .not. eof()
IF kind='PAY'
@ line,00 say dtoc(date)
@ line,65 say '$'
@ line,66 say str(amount,8,2)
@ line,75 say str(recno(),4)
mamount=mamount+amount
line=line+1
SKIP
IF line>21
@24,11 say 'enter NO. to delete or hit (cr)' get mdelete
READ
CLEA gets
IF mdelete=0
mamount1=mamount1+mamount
mamount=0
@11,00 clear
line=11
LOOP
ELSE
DELE record mdelete
DELENO=.T.
MAMOUNT=0
MDELETE=0
FIND '&MFILE_NMBR'
line=11
@11,00 CLEAR
LOOP
ENDI
LOOP
ENDI
LOOP
ELSE
SKIP
LOOP
ENDI
ENDD
mamount2=mamount+mamount1
@22,50 say 'TOTAL PAYMENTS'
@22,65 say '$'
@22,66 say str(mamount2,8,2)
totalpay=mamount2
mamount=0
mamount1=0
@24,11 say 'enter NO. to delete or hit (cr) to see another file' get mdelete
READ
CLEA gets
IF mdelete=0
mser=.f.
exit
ELSE
DELE record mdelete
DELENO=.T.
mamount=0
mdelete=0
mcount=0
@11,00 clear
line=11
FIND '&MFILE_NMBR'
LOOP
ENDI
ENDD
@11,00 CLEAR
@12,30 SAY 'TOTAL SERVICE  $'+STR(TOTALSER,8,2)
@14,30 SAY 'TOTAL EXPENSES $'+STR(TOTALEXP,8,2)
@16,30 SAY 'TOTAL PAYMENTS $'+STR(TOTALPAY,8,2)
MDUE=(TOTALSER+TOTALEXP)-TOTALPAY
@17,30 SAY '________________________'
@19,30 SAY 'TOTAL NOW DUE  $'+STR(MDUE,8,2)
@24,35 say 'HIT ANY KEY'
SET CONS OFF
WAIT
SET CONS ON
ENDD
IF DELENO=.T.
CLEA
@05,05 SAY 'DELETING RECORDS AND REARRAINGING THE DATABASE'
@06,05 SAY 'THIS PROCESS WILL TAKE SEVERAL MINUTES'
@08,05 SAY '*** DO NOT INTERRUPT ***'
SELE SERVICE
PACK
ENDI
SET DELETED OFF
CURR='021'
SET FILTER TO
RETU